Задана строка. Удалить из нее все нечетные элементы — Pascal(Паскаль)

uses crt;
var s: string;
 
procedure vvod(var s: string);
var i: integer;
begin
s:='0123456789';
end;
 
procedure obrabotka(var s: string);
var i: integer;
begin
for i:=length(s) downto 1 do
begin
if s[i] in ['1','3','5','7','9'] then
delete(s,i,1);
end;
end;
 
var comanda: byte;
begin
clrscr;
writeln('1-vvod, 2-obrabotka, 3-vyvod, 9-vyhod');
repeat
writeln('Vvedite comandu: ');
read(comanda);
case comanda of
1:begin
  vvod(s);
  writeln(s);
  end;
2:obrabotka(s);
3:writeln(s);
9:writeln('End');
else writeln('Error');
end;
until comanda = 9;
end.